home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_3.zip / FILES11.EXE / NETSS.PGM < prev    next >
Text File  |  1994-08-22  |  34KB  |  893 lines
  1. SET COLOR = 31 30 112
  2. SET SPLIT = OFF
  3. *******************************************************
  4. *      NETSS.PGM         April 1, 1991  R. Fagan      *
  5. *                        Updated DCS, BPC             *
  6. *                        Latest Update 5/29/92 BPC    *
  7. *                        Updated 10/2/93 G. Jones     *
  8. *     Select records for transmission.  Creates ASCII *
  9. *     Fixed length record, for NETSS system           *
  10. *******************************************************
  11. ***  you must change the value for state here if you move this
  12. ***  program to a state other than  GEORGIA fips "13"
  13. define STATEFIPS __ global
  14. IMMEDIATE LET STATEFIPS = "13"
  15. *******************************************************
  16. define year <A > GLOBAL
  17. define week ## GLOBAL
  18. define YRCHK ## GLOBAL
  19. define DASHCHK <A> GLOBAL
  20. *define wkbeg <MM/DD/YY> GLOBAL
  21. define wkbeg <A       > GLOBAL
  22. *define wkend <MM/DD/YY> GLOBAL
  23. define wkend <A       > GLOBAL
  24. DEFINE SELECTION <A               >  global
  25. define wkdisp1 <A         >
  26. define wkdisp2 <A         >
  27. :main
  28. year = 0
  29. ***
  30.  
  31. cls
  32.  
  33. :YRENTRY
  34. WKBEG = " "
  35. WKEND = " "
  36. ***
  37. ***************************************
  38. ***  GENERAL EPI SCREENS            ***
  39. ***************************************
  40. goto screen1A
  41. ***
  42.  
  43. IMMEDIATE year = systemdate [7,2]
  44. READ GEPI@YEAR
  45.  
  46. PICKLIST 50 9
  47.          "CURRENT WEEK     "   IMMEDIATE LET SELECTION = "WEEKLY"
  48.          "RANGE OF WEEKS   "   IMMEDIATE LET SELECTION = "RANGE"
  49.          "PREVIOUS YEAR    "   IMMEDIATE LET SELECTION = "PREVIOUS YEAR"
  50.          "EXIT             "   IMMEDIATE GOTO EXIT
  51.          "HELP             "   IMMEDIATE GOTO HELP
  52.          "·             ·  "   GOTO EXIT
  53. END
  54. ***
  55. :WKENTRY
  56. IMMEDIATE GOTO @SELECTION
  57. ***
  58.  
  59. ***
  60. ***********************************
  61. ***  GENERAL EPI SCREENS        ***
  62. ***********************************
  63. goto screen3
  64. ***********************************
  65. ***
  66.  
  67. ***
  68. ********************************************************************************
  69. ***  Verification record routine...transmits a year to date total for each event
  70. ********************************************************************************
  71. ***
  72. set decimals = 0
  73. set fillchar = "0"
  74. if EVENT <> 10570 and EVENT <> 10220 and EVENT <> 10280 and EVENT <> 10310 \
  75. and casecount < 1 then casecount = 1
  76. ***
  77. if event >= 80000 then event = 88888
  78. SET NOECHO = ON
  79. SELECT updated <= wkend
  80.  
  81. erase gepistem.rec
  82. route gepistem.rec
  83. output  sumtables casecount event yr
  84.  
  85. read gepistem
  86.  
  87. erase netss.dat
  88. route netss.dat
  89.  
  90. write "V",STATEFIPS,event,count:5,yr,
  91. route screen
  92.  
  93. ********************************************************************************
  94. * Case and Aggregate routine for transmission
  95. ********************************************************************************
  96.  
  97. READ GEPI@YEAR
  98. *
  99. ** set casecount to 1 for all the case records, 10570 is the flu activity code
  100. *
  101. if EVENT <> 10570 and EVENT <> 10220 and EVENT <> 10280 and EVENT <> 10310 \
  102.  and casecount < 1 then casecount = 1
  103.  
  104. EXTRACT
  105.  
  106. *
  107. **
  108. ***  turn state specific (codes over 80,000) into same (88,888 code)
  109. if event >= 80000 then event = 88888
  110.  
  111. *
  112. **
  113. *** set up for linking different event specific files to gepi file
  114. * choice 1 = general records, no added info
  115. * choice 2 = hepatitis
  116. * choice 3 = meningitis
  117. * choice 4 = lyme
  118. * choice 5 = all codes where the added info is put in the other data field
  119. * choice 6 = RASH
  120.  
  121. DEFINE CHOICE _
  122. CHOICE = "1"
  123. IF EVENT=10100 or EVENT=10110 or EVENT=10120 OR EVENT=10480 OR EVENT=10101 OR EVENT=10102 THEN CHOICE = "2"
  124. IF EVENT=10150 OR EVENT=10590 OR EVENT=10650 OR EVENT=10640 THEN CHOICE = "3"
  125. IF EVENT=11080 THEN CHOICE = "4"
  126. IF EVENT=10200 OR EVENT=10340 THEN CHOICE = "5"
  127. IF EVENT = 10140 THEN CHOICE = 6"
  128. set noecho = on
  129.  
  130.  
  131. ********************************
  132. ***  Convert mm/dd/yy format to
  133. ***  YYMMDD format using substrings.
  134. ***     MAKE VAR NAMES SHORTER.
  135. ********************************
  136. *
  137. * z is defined to hold the record type "M" for MMWR case "S" summary record
  138. *
  139. * put the flu activity code and all aggregate disease report codes in "S"
  140. *
  141. define z _
  142. z = "M"
  143. *        FluCode        TB             SYPH           GC             C.POX
  144. if event=10570 or event=10220 or event=10310 or event=10280 or event=10030 then z = "S"
  145. DEFINE A _
  146. A = "9"
  147. DEFINE B __
  148. B = STATEFIPS
  149. **** B IS THE VALUE FOR STATE
  150. DEFINE C __
  151. C = YR
  152. DEFINE D _________
  153. D = ID
  154. DEFINE X _________
  155. X = D [4,6] + D [1,3]
  156. DEFINE E ##
  157. E = MMWRWK
  158. DEFINE F _____
  159. F = EVENT
  160. DEFINE G #####
  161. G = CASECOUNT
  162. define H ###
  163. H = 999
  164. *
  165. h = 999
  166. if (countycode >= 1 and countycode <= 20)    then h = countycode * 2 - 1
  167. if (countycode >= 21 and countycode <= 93)   then h = countycode * 2 + 1
  168. if (countycode = 99 or countycode = 100)     then h = countycode * 2 + 1
  169. if (countycode >= 104 and countycode <= 159) then h = countycode * 2 + 3
  170. if (countycode >= 101 and countycode <= 103) then h = countycode * 2 + 3
  171. if (countycode >= 94 and countycode <= 96)   then h = countycode * 2 + 5
  172. if countycode = 97 then h = 189
  173. if countycode = 98 then h = 199
  174. if (countycode >= 201 and countycode <= 359) then h = countycode - 200
  175. *
  176. DEFINE J ________
  177. J = "99999999"
  178. DEFINE YYYY ####
  179. YYYY = BIRTHDATE[7,4]
  180. if YYYY < 100 THEN LET YYYY = YYYY + 1900
  181. if BIRTHDATE <> . THEN J = YYYY + BIRTHDATE [1,2] + BIRTHDATE [4,2]
  182. DEFINE K ###
  183. K = 999
  184. if AGE <> . then K = AGE
  185. DEFINE L _
  186. L = "9"
  187. if AGETYPE <> . then L = AGETYPE
  188. DEFINE M _
  189. M = "9"
  190. if SEX = "M" then M = "1"
  191. if sex = "F" then M = "2"
  192. define N _
  193. N = "9"
  194. if RACE = "W" then N = "5"
  195. if race = "B" then N = "3"
  196. if race = "A" then N = "2"
  197. if race = "N" then N = "1"
  198. DEFINE O _
  199. O = "9"
  200. if ETHNIC = "H" then O = "1"
  201. if ETHNIC = "N" then O = "2"
  202. DEFINE P ______
  203. P = "999999"
  204. if EVENTDATE <> . then P = EVENTDATE [7,2] + EVENTDATE [1,2] + EVENTDATE [4,2]
  205. DEFINE Q _
  206. Q = "9"
  207. if EVENTTYPE <> . then Q = EVENTTYPE
  208. DEFINE R _
  209. R = "9"
  210. if STATUS <> . then R = STATUS
  211. DEFINE S _
  212. S = "9"
  213. if IMPORTED <> . then S = IMPORTED
  214. DEFINE T _
  215. if outbreakid > 0 then T = "1" else T = "9"
  216. DEFINE U _____
  217. U = "99999"
  218. define ODAT _______________
  219. ODAT = OTHERDATA
  220. DEFINE REPCOUNTY _______________
  221. REPCOUNTY = COUNTY
  222.  
  223. SET PROCESS=BOTH
  224. ERASE gepiTEMP.REC
  225. ROUTE gepiTEMP.REC
  226.  
  227. set noecho = off
  228.  
  229. ***********************************************************
  230. ***  SUBROUTINE FOR GENERAL EPI SCREENS                 ***
  231. ***********************************************************
  232. goto screen3
  233. ***********************************************************
  234.  
  235. set noecho = on
  236.  
  237. WRITE RECFILE ID Z A B C X E F G H J K L M N O P Q R S T U choice REPORTED \
  238.  ODAT EVENTNAME LASTNAME REPCOUNTY
  239.  
  240. ********************************************************************************
  241. * *  read the file with this weeks records in it
  242. ********************************************************************************
  243.  
  244. READ gepitemp
  245. set statistics=off
  246. set criteria=off
  247. set process = undeleted
  248. Set Fillchar = "0"
  249. set noecho = off
  250. ***
  251.  
  252. *************************************
  253. ***  GENERAL EPI SCREENS          ***
  254. *************************************
  255. goto screen4
  256. *************************************
  257.  
  258. set noecho = on
  259. ********************************************************************************
  260. ***  select the records with    HEPATITIS    specific files - for transmission
  261. ********************************************************************************
  262.  
  263. IMMEDIATE RELATE ID HEP@YEAR
  264.  
  265. SELECT
  266. SELECT CHOICE = "2"
  267.  
  268. define jd _
  269. jd = jaundiced
  270. define hh _
  271. hh = hospforhep
  272. define ig _____
  273. ig = igmhav + hbsag + death + igmhbc + antihdv
  274. define dc __
  275. dc = daycare1 + daycare2
  276. define ca __
  277. ca = contacta + atype
  278. define hro ___
  279. hro = handler + rawfish + outbreak
  280. define twd ___
  281. twd = travel + where + duration
  282. define bvar ____
  283. bvar = bvaccine + vaccineyea + antibody
  284.  
  285. route netss.dat
  286. set page = 60,400
  287.  
  288. WRITE z,A,B,C,X,E,F,G,H,J,K,L,M,N,O,P,Q,R,S,T,U,DATEDX,JD,HH,IG,DC,CA,HRO,TWD\
  289. ,CONTACTB,BTYPE,MEDEMP,BLOOD,TRANSF,TRANSFROM,TRANS,DIALYSIS,DIALTYPE,\
  290. DRUGS,SEXPREF,NUMPART,DENTAL,SURGERY,ACUPUNCT,TATTOO,STICK,BVAR,result
  291.  
  292. route screen
  293. *
  294. **
  295. *** RE-READ THE GEPITEMP FILE TO CLEAR OUT ALL RELATED RECORDS AND SET UP
  296. *** FOR NEXT RELATION
  297.  
  298. read gepitemp
  299.  
  300. ********************************************************************************
  301. ***  select the records with    MENINGITIS   specific files - for transmission
  302. ********************************************************************************
  303. SELECT
  304. SELECT CHOICE = "3"
  305.  
  306. IMMEDIATE RELATE ID MENIN@YEAR
  307.  
  308. * route netss.dat
  309. * set page = 60,400
  310. DEFINE DC _
  311.  DC = DAYCARE
  312. DEFINE OT _
  313.  OT = OUTCOME
  314. DEFINE SP1 _
  315.  SP1 = specimen1
  316. DEFINE SP2 _
  317.  SP2 = specimen2
  318. DEFINE SP3 _
  319.  SP3 = specimen3
  320. DEFINE INF1 _
  321.  INF1 = infection1
  322. DEFINE INF2 _
  323.  INF2 = infection2
  324. DEFINE INF3 _
  325.  INF3 = infection3
  326. DEFINE SEROG _
  327.  SEROG = SEROGROUP
  328. DEFINE SEROT _
  329.  SEROT = SEROTYPE
  330. DEFINE VDT1 ________
  331.  VDT1 = vacdate1
  332. DEFINE VN1 _
  333.  VN1 = vacname1
  334. DEFINE LN1 __________
  335.  LN1 = lotnum1
  336. DEFINE VDT2 ________
  337.  VDT2 = vacdate2
  338. DEFINE VN2 _
  339.  VN2 = vacname2
  340. DEFINE LN2 __________
  341.  LN2 = lotnum2
  342. DEFINE VDT3 ________
  343.  VDT3 = vacdate3
  344. DEFINE VN3 _
  345.  VN3 = vacname3
  346. DEFINE LN3 __________
  347.  LN3 = lotnum3
  348. DEFINE VDT4 ________
  349.  VDT4 = vacdate4
  350. DEFINE VN4 _
  351.  VN4 = vacname4
  352. DEFINE LN4 __________
  353.  LN4 = lotnum4
  354.  
  355. route netss.dat
  356. set page = 60,400
  357.  
  358. WRITE  Z,A,B,C,X,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,DC,OT,SPECIES,FIRSTCULT,SP1,\
  359. SP2,SP3,INF1,INF2,INF3,SEROG,SULFA,RIFAMPIN,SEROT,AMP,CHLOR,RIFAMP,HIBVAC,VDT1,\
  360. VN1,LN1,VDT2,VN2,LN2,VDT3,VN3,LN3,VDT4,VN4,LN4
  361.  
  362.  
  363. * WRITE  z,A,B,C,X,E,F,G,H,J,K,L,M,N,O,P,Q,R,S,T,U,PREGNANT,GESTATION,FETALOUT,\
  364. * SPECIES,firstcult,SPECIMEN1,INFECTION1,SPECIMEN2,INFECTION2,SPECIMEN3,\
  365. *INFECTION3,SEROGROUP,VACCINE,VACDATE,SEROTYPE,SULFA,AMPICILLIN,RIFAMPI* *N,\
  366. *CHLORAMPHE
  367.  
  368. route screen
  369.  
  370. *
  371. **
  372. *** RE-READ THE GEPITEMP FILE TO CLEAR OUT ALL RELATED RECORDS AND SET UP
  373. *** FOR NEXT RELATION
  374.  
  375. read gepitemp
  376.  
  377. ********************************************************************************
  378. ***  select the records with      LYME       specific files - for transmission
  379. ********************************************************************************
  380.  
  381. SELECT
  382. SELECT CHOICE = "4"
  383.  
  384.  
  385. IMMEDIATE RELATE ID LYME@YEAR
  386.  
  387. route netss.dat
  388. set page = 60,400
  389. DEFINE PH _
  390. PH = EM
  391. DEFINE SW _
  392. SW = SWELLING
  393. DEFINE BE _
  394. BE = BELLSPALSY
  395.  
  396. WRITE  Z,A,B,C,X,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,PH,SW,BE,RADICULONE,\
  397. LYMPHOCYTI,ENCEPHALIT,CSFTESTEDF,SERUM,N2NDOR3RDD,OTHERCLINI,DIAGNOSIS,REPORTED\
  398. ,WASPATIENT,NAMEANTIBI,USEANTIBIO,WASPATIE01,STATE,COUNTY,SEROLOGICR,CULTURERES\
  399. ,otherspeci,results
  400.  
  401. route screen
  402.  
  403. route NETSS.dat
  404. SET PAGE = 60,400
  405.  
  406. ********************************************************************************
  407. ***  select the records with ANIMAL RABIES OR RUBELLA - for transmission
  408. ********************************************************************************
  409. read gepitemp
  410.  
  411. select
  412. SELECT CHOICE = "5"
  413. if F <> 10340 then ODAT = ODAT[1,2]
  414. WRITE  z,A,B,C,X,E,F,G,H,J,K,L,M,N,O,P,Q,R,S,T,U,ODAT
  415.  
  416. route screen
  417.  
  418. ********************************************************************************
  419. ***  select the records with no event specific files - for transmission
  420. ********************************************************************************
  421.  
  422. read gepitemp
  423. select
  424. SELECT CHOICE = "1"
  425. WRITE  z,A,B,C,X,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U
  426.  
  427. route screen
  428. select
  429. *ROUTE PRINTER
  430. TITLE 1 "\cReports Transmitted to CDC"
  431. TITLE 2 "\cReports for Transmit Week ending = @wkend"
  432. Title 3 "\c**Note-HIBs and Mening.Other Cases are Combined for CDC Reporting"
  433. Title 4 "\cAs of @systemdate"
  434. Title 5 "  "
  435.  
  436. sumtables G EVENTNAME E
  437.  
  438. *
  439. **
  440. *** RE-READ THE GEPITEMP FILE TO CLEAR OUT ALL RELATED RECORDS AND SET UP
  441. *** FOR NEXT OPERATION
  442.  
  443. read gepitemp
  444.  
  445. ********************************************************************************
  446. ***  select the      DELETED RECORDS      - for transmission
  447. ********************************************************************************
  448.  
  449. SELECT
  450. set PROCESS = deleted
  451.  
  452.  
  453. route NETSS.dat
  454. write "D9",B,C,X,E
  455.  
  456. ROUTE SCREEN
  457. *ROUTE PRINTER
  458.  
  459. TITLE 1 "\cDeleted Records Transmitted to CDC"
  460. TITLE 2 "\cReports for Transmit Week ending = @wkend"
  461. Title 3 "\cAs of @systemdate"
  462. Title 4 "  "
  463.  
  464. list EVENTNAME F  E LASTNAME REPCOUNTY
  465. newpage
  466. SET PROCESS = UNDELETED
  467. ***
  468.  
  469.  
  470. GOTO TIMEDATE
  471.  
  472. :EXIT
  473. quit
  474. ***
  475. :PREVIOUS
  476. ***************************************
  477. PICKLIST 50 9
  478.          "GEPI91 " IMMEDIATE YEAR = 91
  479.          "GEPI92 " IMMEDIATE YEAR = 92
  480.          "GEPI93 " IMMEDIATE YEAR = 93
  481.          "GEPI94 " IMMEDIATE YEAR = 94
  482.          "GEPI95 " IMMEDIATE YEAR = 95
  483.          "HELP   " IMMEDIATE GOTO HELP
  484.          "EXIT   " IMMEDIATE GOTO EXIT
  485.          "·     ·" IMMEDIATE GOTO EXIT
  486. END
  487.  
  488. READ GEPI@YEAR
  489. **********************************
  490. ***  GENERAL EPI SCREENS       ***
  491. **********************************
  492. goto screen2
  493. **********************************
  494. ***
  495. IMMEDIATE wkbeg = "?          Enter transmit week beginning date MM/DD/YY :   ?"
  496.  
  497. IMMEDIATE DASHCHK = WKBEG[3,1]
  498. IMMEDIF DASHCHK <> "/" THEN GOTO PROB2
  499. IMMEDIATE DASHCHK = WKBEG[6,1]
  500. IMMEDIF DASHCHK <> "/" THEN GOTO PROB2
  501. IMMEDIF WKBEG = "00/00/00" THEN GOTO HELP
  502. IMMEDIATE YRCHK = WKBEG[7,2]
  503. IMMEDIF YRCHK <> YEAR THEN GOTO PROB2
  504. IMMEDIF WKBEG < "01/01/80" AND WKBEG <> "00/00/00" THEN GOTO PROB2
  505. ***
  506.  
  507. IMMEDIATE wkend = "?          Enter transmit week ending    date MM/DD/YY :   ?"
  508. IMMEDIATE DASHCHK = WKEND[3,1]
  509. IMMEDIF DASHCHK <> "/" THEN GOTO PROB2
  510. IMMEDIATE DASHCHK = WKEND[6,1]
  511. IMMEDIF DASHCHK <> "/" THEN GOTO PROB2
  512. IMMEDIF WKEND = "00/00/00" THEN GOTO HELP
  513. IMMEDIATE YRCHK = WKEND[7,2]
  514. IMMEDIF YRCHK <> YEAR THEN GOTO PROB2
  515. IMMEDIF WKEND < "01/01/80" AND WKEND <> "00/00/00" THEN GOTO PROB2
  516.  
  517. CMD EXTRACT
  518.     SELECT updated <= wkend and updated >= wkbeg
  519. END
  520. RETURN
  521. ***
  522.  
  523. :WEEKLY
  524. IMMEDIATE YEAR = SYSTEMDATE[7,2]
  525. READ GEPI@YEAR
  526. **********************************
  527. ***  GENERAL EPI SCREENS       ***
  528. **********************************
  529. goto screen2
  530. **********************************
  531. ***
  532. IMMEDIATE wkend = "?          Enter transmit weekending date MM/DD/YY :   ?"
  533. IMMEDIATE DASHCHK = WKEND[3,1]
  534. IMMEDIF DASHCHK <> "/" THEN GOTO PROB2
  535. IMMEDIATE DASHCHK = WKEND[6,1]
  536. IMMEDIF DASHCHK <> "/" THEN GOTO PROB2
  537. IMMEDIF WKEND = "00/00/00" THEN GOTO HELP
  538. IMMEDIATE YRCHK = WKEND[7,2]
  539. IMMEDIF YRCHK <> YEAR THEN GOTO PROB2
  540. IMMEDIF WKEND < "01/01/80" AND WKEND <> "00/00/00" THEN GOTO PROB2
  541.  
  542. CMD EXTRACT
  543.     SELECT updated <= wkend and updated >= wkend - 9
  544. END
  545. RETURN
  546. ***
  547.  
  548. :RANGE
  549. IMMEDIATE YEAR = SYSTEMDATE[7,2]
  550. READ GEPI@YEAR
  551. **********************************
  552. ***  GENERAL EPI SCREENS       ***
  553. **********************************
  554. goto screen5
  555. **********************************
  556. ***
  557.  
  558. IMMEDIATE wkbeg = "?          Enter transmit week beginning date MM/DD/YY :   ?"
  559. IMMEDIATE DASHCHK = WKbeg[3,1]
  560. IMMEDIF DASHCHK <> "/" THEN GOTO PROB2
  561. IMMEDIATE DASHCHK = WKbeg[3,1]
  562. IMMEDIF DASHCHK <> "/" THEN GOTO PROB2
  563. IMMEDIF WKBEG = "00/00/00" THEN GOTO HELP
  564. IMMEDIATE YRCHK = WKBEG[7,2]
  565. IMMEDIF YRCHK <> YEAR THEN GOTO PROB2
  566. IMMEDIF WKBEG < "01/01/80" AND WKBEG <> "00/00/00" THEN GOTO PROB2
  567. ***
  568.  
  569. IMMEDIATE wkend = "?          Enter transmit week ending    date MM/DD/YY :   ?"
  570. IMMEDIATE DASHCHK = WKEND[3,1]
  571. IMMEDIF DASHCHK <> "/" THEN GOTO PROB2
  572. IMMEDIATE DASHCHK = WKEND[6,1]
  573. IMMEDIF DASHCHK <> "/" THEN GOTO PROB2
  574. IMMEDIF WKEND = "00/00/00" THEN GOTO HELP
  575. IMMEDIATE YRCHK = WKEND[7,2]
  576. IMMEDIF YRCHK <> YEAR THEN GOTO PROB2
  577. IMMEDIF WKEND < "01/01/80" AND WKEND <> "00/00/00" THEN GOTO PROB2
  578.  
  579. CMD EXTRACT
  580.     SELECT updated <= wkend and updated >= wkbeg
  581. END
  582. RETURN
  583. ***
  584.  
  585.  
  586. :prob
  587. type "\07"
  588. CLS
  589. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  590. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  591. ECHO ▓▓▓▓▓▓▓╔════════════════════════════════════════════════════════════════╗▓▓▓▓▓▓
  592. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  593. ECHO ▓▓▓▓▓▓▓║                   N E T S S   P R O G R A M                    ║░▓▓▓▓▓
  594. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  595. ECHO ▓▓▓▓▓▓▓╠════════════════════════════════════════════════════════════════╣░▓▓▓▓▓
  596. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  597. ECHO ▓▓▓▓▓▓▓║   »  The year cannot be prior to 1990 or after                 ║░▓▓▓▓▓
  598. ECHO ▓▓▓▓▓▓▓║      1995.                                                     ║░▓▓▓▓▓
  599. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  600. ECHO ▓▓▓▓▓▓▓║   »  Press <Enter> to continue or <F10> to return              ║░▓▓▓▓▓
  601. ECHO ▓▓▓▓▓▓▓║      to the menu.                                              ║░▓▓▓▓▓
  602. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  603. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  604. ECHO ▓▓▓▓▓▓▓╚════════════════════════════════════════════════════════════════╝░▓▓▓▓▓
  605. ECHO ▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓
  606. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  607. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  608. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  609. ECHO ═══════════════════════════════════════════════════════════════════════════════
  610. ? ?
  611. goto main
  612. :screen1
  613. CLS
  614. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  615. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  616. ECHO ▓▓▓▓▓▓▓╔════════════════════════════════════════════════════════════════╗▓▓▓▓▓▓
  617. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  618. ECHO ▓▓▓▓▓▓▓║                   N E T S S   P R O G R A M                    ║░▓▓▓▓▓
  619. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  620. ECHO ▓▓▓▓▓▓▓╠════════════════════════════════════════════════════════════════╣░▓▓▓▓▓
  621. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  622. ECHO ▓▓▓▓▓▓▓║     »  Please select the year:                                 ║░▓▓▓▓▓
  623. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  624. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  625. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  626. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  627. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  628. ECHO ▓▓▓▓▓▓▓╚════════════════════════════════════════════════════════════════╝░▓▓▓▓▓
  629. ECHO ▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓
  630. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  631. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  632. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  633. ECHO ═══════════════════════════════════════════════════════════════════════════════
  634. ECHO
  635. RETURN
  636. *
  637. :screen1a
  638. CLS
  639. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  640. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  641. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  642. ECHO ▓▓▓▓▓▓▓╔════════════════════════════════════════════════════════════════╗▓▓▓▓▓▓
  643. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  644. ECHO ▓▓▓▓▓▓▓║                   N E T S S   P R O G R A M                    ║░▓▓▓▓▓
  645. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  646. ECHO ▓▓▓▓▓▓▓╠════════════════════════════════════════════════════════════════╣░▓▓▓▓▓
  647. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  648. ECHO ▓▓▓▓▓▓▓║     »  Please select transmission type:                        ║░▓▓▓▓▓
  649. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  650. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  651. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  652. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  653. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  654. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  655. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  656. ECHO ▓▓▓▓▓▓▓╚════════════════════════════════════════════════════════════════╝░▓▓▓▓▓
  657. ECHO ▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓
  658. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  659. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  660. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  661. ECHO ═══════════════════════════════════════════════════════════════════════════════
  662. ECHO
  663. RETURN
  664. *
  665. :PROB2
  666. WKDISP1 = " "
  667. WKDISP2 = " "
  668. IMMEDIF SELECTION = "WEEKLY" THEN WKDISP1 = WKEND ELSE WKDISP1 = WKBEG
  669. *IMMEDIF SELECTION <> "WEEKLY" THEN WKDISP1 = WKBEG
  670. IMMEDIF SELECTION <> "WEEKLY" THEN WKDISP2 = WKEND ELSE WKDISP2 = "         "
  671. *MMEDIF WKBEG = . THEN WKDISP1 = WKEND
  672. *AND WKEND < " " THEN WKDISP1 = WKEND
  673. *IMMEDIF WKEND = . AND WKBEG <> . THEN WKDISP2 = "        " ELSE WKDISP2 = wkend
  674. CLS
  675. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  676. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  677. ECHO ▓▓▓▓▓▓▓╔════════════════════════════════════════════════════════════════╗▓▓▓▓▓▓
  678. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  679. ECHO ▓▓▓▓▓▓▓║                   N E T S S   P R O G R A M                    ║░▓▓▓▓▓
  680. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  681. ECHO ▓▓▓▓▓▓▓╠════════════════════════════════════════════════════════════════╣░▓▓▓▓▓
  682. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  683. ECHO ▓▓▓▓▓▓▓║     »  Please re-enter the transmit weekending date.           ║░▓▓▓▓▓
  684. ECHO ▓▓▓▓▓▓▓║        The date was incorectly entered @WKDISP1                ║░▓▓▓▓▓
  685. ECHO ▓▓▓▓▓▓▓║                                        @WKDISP2                ║░▓▓▓▓▓
  686. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  687. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  688. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  689. ECHO ▓▓▓▓▓▓▓║     »  Press <Enter> to re-enter date or <F10> to return       ║░▓▓▓▓▓
  690. ECHO ▓▓▓▓▓▓▓║        to the main menu.                                       ║░▓▓▓▓▓
  691. ECHO ▓▓▓▓▓▓▓╚════════════════════════════════════════════════════════════════╝░▓▓▓▓▓
  692. ECHO ▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓
  693. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  694. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  695. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  696. ECHO ═══════════════════════════════════════════════════════════════════════════════
  697. ECHO
  698. ? ?
  699. *GOTO WKENTRY
  700. GOTO YRENTRY
  701. *
  702. :SCREEN2
  703. CLS
  704. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  705. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  706. ECHO ▓▓▓▓▓▓▓╔════════════════════════════════════════════════════════════════╗▓▓▓▓▓▓
  707. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  708. ECHO ▓▓▓▓▓▓▓║                   N E T S S   P R O G R A M                    ║░▓▓▓▓▓
  709. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  710. ECHO ▓▓▓▓▓▓▓╠════════════════════════════════════════════════════════════════╣░▓▓▓▓▓
  711. ECHO ▓▓▓▓▓▓▓║     »  You have selected GEPI@year.rec                            ║░▓▓▓▓▓
  712. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  713. ECHO ▓▓▓▓▓▓▓║     »  Please enter the ending transmit date.                  ║░▓▓▓▓▓
  714. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  715. ECHO ▓▓▓▓▓▓▓║        The date should be in the MM/DD/YY format,              ║░▓▓▓▓▓
  716. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  717. ECHO ▓▓▓▓▓▓▓║                for example:  01/01/92                          ║░▓▓▓▓▓
  718. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  719. ECHO ▓▓▓▓▓▓▓║     »  Enter "H" for help.                                     ║░▓▓▓▓▓
  720. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  721. ECHO ▓▓▓▓▓▓▓╚════════════════════════════════════════════════════════════════╝░▓▓▓▓▓
  722. ECHO ▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓
  723. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  724. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  725. ECHO ═══════════════════════════════════════════════════════════════════════════════
  726. ECHO
  727. RETURN
  728. *
  729. :SCREEN3
  730. CLS
  731. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  732. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  733. ECHO ▓▓▓▓▓▓▓╔════════════════════════════════════════════════════════════════╗▓▓▓▓▓▓
  734. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  735. ECHO ▓▓▓▓▓▓▓║                   N E T S S   P R O G R A M                    ║░▓▓▓▓▓
  736. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  737. ECHO ▓▓▓▓▓▓▓╠════════════════════════════════════════════════════════════════╣░▓▓▓▓▓
  738. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  739. ECHO ▓▓▓▓▓▓▓║     »  Please be patient ........                              ║░▓▓▓▓▓
  740. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  741. ECHO ▓▓▓▓▓▓▓║     »  Processing Data.                                        ║░▓▓▓▓▓
  742. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  743. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  744. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  745. ECHO ▓▓▓▓▓▓▓╚════════════════════════════════════════════════════════════════╝░▓▓▓▓▓
  746. ECHO ▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓
  747. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  748. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  749. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  750. ECHO ═══════════════════════════════════════════════════════════════════════════════
  751. ECHO
  752. RETURN
  753. *
  754. :SCREEN4
  755. CLS
  756. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  757. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  758. ECHO ▓▓▓▓▓▓▓╔════════════════════════════════════════════════════════════════╗▓▓▓▓▓▓
  759. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  760. ECHO ▓▓▓▓▓▓▓║                   N E T S S   P R O G R A M                    ║░▓▓▓▓▓
  761. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  762. ECHO ▓▓▓▓▓▓▓╠════════════════════════════════════════════════════════════════╣░▓▓▓▓▓
  763. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  764. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  765. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  766. ECHO ▓▓▓▓▓▓▓║     »  Writing records to be transmitted.                      ║░▓▓▓▓▓
  767. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  768. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  769. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  770. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  771. ECHO ▓▓▓▓▓▓▓╚════════════════════════════════════════════════════════════════╝░▓▓▓▓▓
  772. ECHO ▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓
  773. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  774. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  775. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  776. ECHO ═══════════════════════════════════════════════════════════════════════════════
  777. ECHO
  778. RETURN
  779. ***
  780. :SCREEN5
  781. CLS
  782. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  783. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  784. ECHO ▓▓▓▓▓▓▓╔════════════════════════════════════════════════════════════════╗▓▓▓▓▓▓
  785. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  786. ECHO ▓▓▓▓▓▓▓║                   N E T S S   P R O G R A M                    ║░▓▓▓▓▓
  787. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  788. ECHO ▓▓▓▓▓▓▓╠════════════════════════════════════════════════════════════════╣░▓▓▓▓▓
  789. ECHO ▓▓▓▓▓▓▓║     »  You have selected GEPI@year.rec                            ║░▓▓▓▓▓
  790. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  791. ECHO ▓▓▓▓▓▓▓║     »  Please enter the beginning transmit date.               ║░▓▓▓▓▓
  792. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  793. ECHO ▓▓▓▓▓▓▓║     »  Please enter the ending    transmit date.               ║░▓▓▓▓▓
  794. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  795. ECHO ▓▓▓▓▓▓▓║        The date should be in the MM/DD/YY format,              ║░▓▓▓▓▓
  796. ECHO ▓▓▓▓▓▓▓║                for example:  01/01/92                          ║░▓▓▓▓▓
  797. ECHO ▓▓▓▓▓▓▓║                                                                ║░▓▓▓▓▓
  798. ECHO ▓▓▓▓▓▓▓║     »  Enter "H" for help.                                     ║░▓▓▓▓▓
  799. ECHO ▓▓▓▓▓▓▓╚════════════════════════════════════════════════════════════════╝░▓▓▓▓▓
  800. ECHO ▓▓▓▓▓▓▓▓▓░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▓▓▓▓▓
  801. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  802. ECHO ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
  803. ECHO ═══════════════════════════════════════════════════════════════════════════════
  804. ECHO
  805. RETURN
  806. *
  807.  
  808.  
  809. :HELP
  810. CLS
  811. ECHO  ██████████████████████████████████████████████████████████████████████████████
  812. ECHO  █▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒█
  813. ECHO  █▒░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▒█
  814. ECHO  █▒░                                                                        ░▒█
  815. ECHO  █▒░           N E T S S  M O D U L A R   S Y S T E M  H E L P              ░▒█
  816. ECHO  █▒░                                                                        ░▒█
  817. ECHO  █▒░       This program is for weekly transmission of NETSS data.           ░▒█
  818. ECHO  █▒░                                                                        ░▒█
  819. ECHO  █▒░       A year must be entered followed by a range of dates              ░▒█
  820. ECHO  █▒░                                                                        ░▒█
  821. ECHO  █▒░       for the desired period of transmission. The entire date          ░▒█
  822. ECHO  █▒░                                                                        ░▒█
  823. ECHO  █▒░       must be entered including the "/" . A summary of your            ░▒█
  824. ECHO  █▒░                                                                        ░▒█
  825. ECHO  █▒░       transmission will be presented for printing.                     ░▒█
  826. ECHO  █▒░                                                                        ░▒█
  827. ECHO  █▒░                                            Press <ENTER> to continue   ░▒█
  828. ECHO  █▒░                                                                        ░▒█
  829. ECHO  █▒░                                                                        ░▒█
  830. ECHO  █▒░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░▒█
  831. ECHO  █▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒█
  832. ECHO  ██████████████████████████████████████████████████████████████████████████████
  833. ? ?
  834. GOTO YRENTRY
  835. ***
  836.  
  837. :TIMEDATE
  838. SET NOECHO = OFF
  839. ERASE NETSS.TXT
  840. ROUTE NETSS.TXT
  841. CLS
  842. TYPE " "
  843. TYPE " "
  844. TYPE "   DATA TRANSMISSION INFORMATION"
  845. TYPE "  "
  846. TYPE "   THIS IS THE SELECTION CRITERIA YOU'VE SELECTED:"
  847. TYPE " "
  848. TYPE " "
  849. TYPE "   THE DATE OF FILE CREATED: @SYSTEMDATE"
  850. TYPE "   THE TIME OF FILE CREATED: @SYSTEMTIME"
  851. TYPE "   THE TYPE OF FILE CREATED: @SELECTION"
  852. TYPE " "
  853. IMMEDIF SELECTION = "RANGE" THEN TYPE "   THE WEEK BEGINNING  DATE SELECTED: @WKBEG"
  854. IMMEDIF SELECTION = "RANGE" OR SELECTION = "WEEKLY" THEN TYPE "   THE WEEK ENDING     DATE SELECTED: @WKEND"
  855. IMMEDIF SELECTION = "MMWRWK" THEN TYPE "   THE MMWR WEEK   SEELECTED: @WEEK"
  856. TYPE " "
  857. TYPE " "
  858. TYPE " "
  859. ?   PUSH <ENTER> TO CONTINUE ?
  860.  
  861. SET NOECHO = ON
  862. DEFINE RECORDS <A           >
  863. DEFINE PRTREC <A>
  864. RECODE CHOICE TO RECORDS 1=individual 2=hepatitis 3=meningitis \
  865. 4=lyme 5="other data"
  866. CLS
  867.  
  868. SET NOECHO = OFF
  869. TITLE 1 "Total Records Created For Transmission @SYSTEMDATE"
  870. TITLE 2 " "
  871. TITLE 3 " "
  872. FREQ RECORDS
  873.  
  874. TYPE " "
  875. TYPE " "
  876. TYPE " "
  877.  
  878. CMD PRTSUM
  879. ROUTE PRINTER
  880. TYPE NETSS.TXT
  881. END
  882.  
  883. IMMEDIATE PRTREC = "? PUSH 'Y' TO PRINT THIS TRANSMISSION SUMMARY THEN PUSH <ENTER> TO EXIT.?"
  884. IMMEDIF PRTREC= "Y" THEN PRTSUM
  885.  
  886. ROUTE SCREEN
  887. RETURN
  888.  
  889.  
  890.  
  891.  
  892.  
  893.